home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / menu1.stk < prev    next >
Encoding:
Text File  |  1994-08-24  |  285 b   |  10 lines
  1. ;; Basic drop down menu
  2.  
  3. (pack (menubutton '.mbutton :text "Menu Button" :menu ".mbutton.menu"))
  4.  
  5. (menu '.mbutton.menu)
  6. (.mbutton.menu 'add 'command :label "Open")
  7. (.mbutton.menu 'add 'command :label "Close")
  8. (.mbutton.menu 'add 'separator)
  9. (.mbutton.menu 'add 'command :label "Exit")
  10.